home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen…rary 6 (Reseller Edition) / Apple Ref. & Pres. Lib.v6.0.toast / pc / 2-Graphics / Apple Graphics Source / Other files / Graphics Database Lists / card_6033.txt < prev    next >
Text File  |  1990-12-05  |  3KB  |  138 lines
  1. -- card: 6033 from stack: in
  2. -- bmap block id: 0
  3. -- flags: 0000
  4. -- background id: 5187
  5. -- name: print w/out TN top
  6.  
  7.  
  8. -- part 2 (field)
  9. -- low flags: 00
  10. -- high flags: 0002
  11. -- rect: left=0 top=0 right=20 bottom=512
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 0
  15. -- font id: 3
  16. -- text size: 12
  17. -- style flags: 256
  18. -- line height: 16
  19. -- part name: Title to Print
  20. ----- HyperTalk script -----
  21. on mouseUp
  22.   global listSelected, lineClicked
  23.   put clickLine() into lineClicked
  24.   -- determine how many lines are hidden above
  25.   put (the scroll of me / textHeight of me) into linesAbove
  26.   -- add that number to the relative position clicked
  27.   add linesAbove to lineClicked
  28.   -- userLevel must be set to 4 or 5 for select to work
  29.   put userLevel into tempUserLevel
  30.   set userLevel to 5
  31.   select line lineClicked of card field "list Index"
  32.   put tempUserLevel into userLevel
  33.   if the selection is empty
  34.   then
  35.   exit mouseUp
  36. end if
  37. put the selection into listSelected
  38. end mouseUp
  39.  
  40.  
  41. -- part 4 (field)
  42. -- low flags: 00
  43. -- high flags: 0002
  44. -- rect: left=0 top=20 right=53 bottom=512
  45. -- title width / last selected line: 0
  46. -- icon id / first selected line: 0 / 0
  47. -- text alignment: 0
  48. -- font id: 4
  49. -- text size: 12
  50. -- style flags: 0
  51. -- line height: 16
  52. -- part name: Headings
  53.  
  54.  
  55. -- part 5 (field)
  56. -- low flags: 00
  57. -- high flags: 0007
  58. -- rect: left=0 top=52 right=342 bottom=512
  59. -- title width / last selected line: 0
  60. -- icon id / first selected line: 0 / 0
  61. -- text alignment: 0
  62. -- font id: 4
  63. -- text size: 12
  64. -- style flags: 0
  65. -- line height: 16
  66. -- part name: List
  67. ----- HyperTalk script -----
  68. on mouseUp
  69.   global listSelected, lineClicked
  70.   put clickLine() into lineClicked
  71.   -- determine how many lines are hidden above
  72.   put (the scroll of me / textHeight of me) into linesAbove
  73.   -- add that number to the relative position clicked
  74.   add linesAbove to lineClicked
  75.   -- userLevel must be set to 4 or 5 for select to work
  76.   put userLevel into tempUserLevel
  77.   set userLevel to 5
  78.   select line lineClicked of card field "list Index"
  79.   put tempUserLevel into userLevel
  80.   if the selection is empty
  81.   then
  82.   exit mouseUp
  83. end if
  84. put the selection into listSelected
  85. end mouseUp
  86.  
  87.  
  88. -- part 8 (button)
  89. -- low flags: 00
  90. -- high flags: 0001
  91. -- rect: left=495 top=53 right=341 bottom=511
  92. -- title width / last selected line: 0
  93. -- icon id / first selected line: 0 / 0
  94. -- text alignment: 1
  95. -- font id: 0
  96. -- text size: 12
  97. -- style flags: 0
  98. -- line height: 16
  99. -- part name: New Button
  100.  
  101.  
  102. -- part contents for card part 2
  103. ----- text -----
  104. LIST NAME:Untitled
  105.  
  106. -- part contents for card part 4
  107. ----- text -----
  108.   #  | Description
  109.      | File Name
  110.  
  111. -- part contents for card part 5
  112. ----- text -----
  113.   1. | none
  114.      | ZZZ5
  115.   2. | none
  116.      | Bad Tiny Pict
  117.   3. | none
  118.      | aaad
  119.   4. | none
  120.      | aaae
  121.   5. | none
  122.      | Screen Dump 1
  123.   6. | none
  124.      | Screen Dump 2
  125.   7. | none
  126.      | About This Graphic
  127.   8. | none
  128.      | Title Bar
  129.   9. | none
  130.      | Lists
  131.  10. | none
  132.      | Keywords dialog
  133.  11. | none
  134.      | Help view
  135.  12. | none
  136.      | File Server PICT
  137.  13. | none
  138.      | DispPICT window